home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SELELM.PLP < prev    next >
Text File  |  1991-02-24  |  986b  |  25 lines
  1. /* auto pilot program ｢NEM 2.00｣           1991.2.24   By GOOSE(MAF00070) */
  2. /* %Selelm { */
  3. /*  [ONEPROC,TITLE] */
  4. /*--------------------------------------------------------------------
  5. ** ｢,｣で区切った可変個の要素(ONEPROC)から select文を生成する｡
  6. ** ONEPROCの最終要素は｢No,｣であること｡
  7. **-------------------------------------------------------------------*/
  8.   var FORUMS[128];var SELPLT[512];
  9.   FORUMS:=ONEPROC;
  10.   var MKKHK[3];MKKHK:=@xc({7d})|{,}|@xc({7b}); /* },{ */
  11.   SELPLT:={select(}|@xc({7b})|TITLE|MKKHK|{600};
  12.   SELPLT:=SELPLT|@xc({7d})|{,}|@xc({7b})|{im(}|@xc({7b})|@xc({7d})|{)};
  13.   SELPLT:=SELPLT|@xc({7d});
  14.   loop({%temp @head(FORUMS,{,});
  15.     case(temp={No},
  16.       {Yes},{SELPLT:=SELPLT|{);};im({No})},
  17.       {No},{SELPLT:=SELPLT|{,}|@xc({7b})|{ }|temp|{ }|MKKHK;
  18.             SELPLT:=SELPLT|{im(}|@xc({7b})|temp|@xc({7d})|{)}|@xc({7d});
  19.             FORUMS:=@body(FORUMS,{,});
  20.             im({Yes})})
  21.   });
  22.   %exeplt SELPLT;
  23.   im(@exeplt)
  24. /* }; */
  25.